<%
fl=7
openconn
set rs=conn.execute("select * from "&prefix&"wz where "&prefix&"s1=6 and id="&id)
if rs.eof then
alertmsg "错误的选择！",""
else
p1=rs(prefix&"p1")
p8=rs(prefix&"p8")
t1=fdata(rs(prefix&"t1"),"-")
p2=rs(prefix&"p2")
b1=rs(prefix&"b1")
s4=rs(prefix&"s4")+1
conn.execute("update "&prefix&"wz set "&prefix&"s4="&prefix&"s4+1 where id="&id)
end if
%>
<%=SiteTitle%>